home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 095 / rfix0326.arc / R-PC0326.MRG < prev    next >
Encoding:
Text File  |  1987-03-24  |  2.6 KB  |  60 lines
  1. * Merge this against rbbs-pc.bas  Date 3-15-1987  Size 199424 bytes
  2. * ------------[ Created 03-23-1987 17:11:58 ]------------
  3. * REPLACING old line(s) by new
  4. * ------[ first line different ]------
  5. 105 VERSION.ID$ = "CPC15.1A with TF032602 applied"                   ' TF032602
  6.     XOFF$ = CHR$(19)
  7.     XON$ = CHR$(17)
  8.   ' ******************** Logon Error Message Table ****************************
  9. * REPLACING old line(s) by new
  10. 459 GOSUB 9500
  11.     LAST.DATE.TIME.ON.SAVE$ = LAST.DATE.TIME.ON$
  12.     IF EXIT.TO.DOORS THEN _
  13.        USER.LOGON.TIME! = (VAL(MID$(LAST.DATE.TIME.ON$,10,2))*3600) + _
  14.                           (VAL(MID$(LAST.DATE.TIME.ON$,13,2))*60) : _
  15.        CALL TIMEREMAIN (TIME.REMAINING!)
  16.     USER.FILE.INDEX = LOC(5)
  17.     GOSUB 5135
  18.     GOSUB 5170
  19.     IF REG.DAYS.REMAINING < 0 THEN _
  20.        CALL QTPUT (LG$(9)+" - security reset to "+STR$(EXPIRED.SECURITY),1):_
  21.        LOGON.ERROR.INDEX = 9 : _
  22.        USER.SECURITY.LEVEL = EXPIRED.SECURITY : _
  23. * ------[ first line different ]------
  24.        LSET SECURITY.LEVEL$ = MKI$(USER.SECURITY.LEVEL) : _          ' TF032402
  25.        GOSUB 5135
  26.     USER.SECURITY.LEVEL$ = STR$(USER.SECURITY.LEVEL)
  27.     IF USER.SECURITY.LEVEL > -1 THEN _
  28.        USER.SECURITY.LEVEL$ = MID$(USER.SECURITY.LEVEL$,2)
  29.     FILE.NAME$ = "LG" + USER.SECURITY.LEVEL$ + ".DEF"
  30.     BYPASS.TIME.CHECK = TRUE
  31.     CALL OPENWORK (FILE.NAME$)
  32.     IF EC = 0 THEN _
  33.        GOSUB 6000
  34.     BYPASS.TIME.CHECK = FALSE
  35. * REPLACING old line(s) by new
  36. 2030 IF Q = 0 THEN _
  37.         MESSAGE.TO$ = "ALL" _
  38.      ELSE CALL ALLCAPSD (B$(),1) : _
  39.           MESSAGE.TO$ = B$(1)
  40. * ------[ first line different ]------
  41.      IF Q > 0 AND _                                                  ' TF031801
  42.         LEN (B$(1)) < 2 THEN _                                       ' TF031801
  43.         CALL QTPUT ("Invalid user name!  Try again.",1) : _          ' TF031801
  44.         GOTO 2020                                                    ' TF031801
  45. * REPLACING old line(s) by new
  46. * ------[ first line different ]------
  47. 10930 IF DOS.VERSION < 2 OR _                                        ' TF032001
  48.          (REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _          ' TF032001
  49.          A$ = "Remote DOS unavailable" : _
  50.          RETURN
  51. * REPLACING old line(s) by new
  52. * ------[ first line different ]------
  53. 10970 IF NOT DOORS.AVAILABLE OR _                                    ' TF032001
  54.          (REQUIRED.RINGS = 0 AND NOT SHOOT.YOURSELF) THEN _          ' TF032001
  55.          A$ = "All doors locked!" : _
  56.          RETURN
  57.       IF CONFERENCE.MODE THEN _
  58.          A$ = "Cannot exit to a Door when in a Conference!" : _
  59.          RETURN
  60.